home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / MAXMEM__ / MAXAPPLZ.C next >
Text File  |  1988-11-06  |  1KB  |  32 lines
  1. /* MaxApplZone.simple.c                                                 */
  2. /* ==================================================================== */    
  3. /*  very basic HyperCard memory management function                     */
  4. /*  ⌐ Copyright 1988 Sam Thornton, PO Box 123, Fairfield, NE 68938-0123 */
  5. /*  May be copied & distributed without charge only. Not for commercial */
  6. /*  sale or resale.                                                     */
  7. /*  Written in LSC 3.01 11/2/88 - some portions ⌐ by Symantec           */
  8. /* ==================================================================== */
  9.  
  10. #include "HyperXCmd.h"
  11. #include "SetUpA4.h"
  12. #include "MemoryMgr.h"
  13. #include "unix.h"    /* make sure you also include <unixst2d.c> in PROJ */
  14.  
  15. pascal void main (paramPtr) 
  16.   XCmdBlockPtr paramPtr;
  17.   {
  18.       Size    grow;
  19.       
  20.     RememberA0();
  21.     SetUpA4();
  22.     
  23.     if (paramPtr->paramCount >= 1) { /* if any param, compact memory */
  24.         MaxMem(&grow);
  25.         MaxApplZone();
  26.         }
  27.     paramPtr->returnValue = NewHandle(10);
  28.     stci_d(*paramPtr->returnValue,(TheZone->zcbFree / 1024),9);
  29.         
  30.     RestoreA4();
  31.     return;
  32.     }